home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
util
/
edit
/
xdme18208.lha
/
XDME
/
menu_dme.c
< prev
next >
Wrap
C/C++ Source or Header
|
1993-02-26
|
9KB
|
387 lines
/******************************************************************************
MODUL
menu_dme.c
DESCRIPTION
[X]DME enhancements to menubase.c
NOTES
that is only a fast hack derived from the original
menu.c, that supports one menu on all Windows
es ist beabsichtigt, in zukunft nur noch 1 fenster
mit menues zuzulassen aber dafuer museen erst einmal alle
windowswitches im [X]DME ueber ene zentrale fktion laufen,
die dann menu_strip on/off waehlt
BUGS
TODO
0 make the module compilable
1 rewrite fixmenu for subs
2 I intend to use a Menu only for the actual Window
3 We must support multiple Menues
4 we need another MenuToMacro without that damned MENUSTRIP for access from vars
5 use menubase.fix_items (not ready yet)
EXAMPLES
SEE ALSO
INDEX
HISTORY
20 Dec 1992 b_null created
******************************************************************************/
/**************************************
Includes
**************************************/
#include "defs.h"
#include "menubase.h"
#include <libraries/gadtools.h>
#include <clib/gadtools_protos.h>
/**************************************
Globale Variable
**************************************/
Prototype void menuon (MENUSTRIP * ms, struct Window * win);
Prototype void menuoff (MENUSTRIP * ms, struct Window * win);
Prototype void menu_strip (MENUSTRIP * ms, struct Window * Win);
Prototype void menuload (MENUSTRIP * ms, char * fname);
Prototype void menusave (MENUSTRIP * ms, char * fname);
Prototype void fixmenu (MENUSTRIP * ms, struct Window * win);
/**************************************
Interne Defines & Strukturen
**************************************/
/**************************************
Interne Variable
**************************************/
/**************************************
Interne Prototypes
**************************************/
/*****************************************************************************
NAME
menuon
PARAMETER
MENUSTRIP * ms
struct Window * win
RESULT
-/-
RETURN
void
DESCRIPTION
activates the menu definitions of a program; each
call to menuon eliminates a PRIOR call to menuoff.
NOTES
Window is not dummy-parameter any more
BUGS
EXAMPLES
SEE ALSO
INTERNALS
Win war ein Dummy, der schon einmal eingebaut wurde,
da ich beabsichtige, nur noch fuer das aktuelle Fenster
den Menubar zuzulassen;
das heisst unter anderem, dass ALLE fenster-manipulationen
eine spezielle Function aufrufen muessen, die dafuer sogrt,
dass von einem alten Fenster die Menuleiste abgetrennt wird
(dafuer bietet sich menu_strip an)
zur zeit verwenden wir als default-menustrip jedesmal get_menustip(NULL);
dies ist zu beruecksichtigen
HISTORY
20 Dec 1992 b_null created
******************************************************************************/
void menuon (MENUSTRIP * ms, struct Window * win)
{
ED * ed;
int def_too;
if (ms) {
def_too = (get_menustrip(NULL) == ms);
if (ms->data && ms->offCount == 1) {
fixmenu (ms, win); /* !!! we use win here !!! */
/* attach menues */
for (ed = (ED *)GetHead (&DBase); ed; ed = (ED *)GetSucc ((struct Node *)ed)) {
// if (ed->Package == Package) /* <-PATCH_PACK */
if ((ed->menustrip == ms) || (def_too && (ed->menustrip == NULL))) /* <- PATCH_NEW */
{
if (!ed->iconmode) {
SetMenuStrip (ed->win, ms->data);
Forbid();
ed->win->Flags &= ~WFLG_RMBTRAP;
Permit();
} /* if */
} /* if */
} /* for all texts */
} /* if to be displayed */
if (ms->offCount>0) {
ms->offCount --;
} else {
ms->offCount = 0;
} /* if menues are off */
} /* if sensefully called */
} /* menuon */
/*****************************************************************************
NAME
menuoff
PARAMETER
MENUSTRIP * ms
struct Window * win
RESULT
-/-
RETURN
void
DESCRIPTION
inactivates the menudefinitions of a program
menuoff is stackable that means
calling menuoff twice needs also two calls to menon
to be erased
NOTES
Window is not dummy-parameter any more
BUGS
EXAMPLES
state a menuoff state b menuon -> state a
state a menuon state a menuoff -> state a
SEE ALSO
INTERNALS
Win war ein Dummy, der schon einmal eingebaut wurde,
da ich beabsichtige, nur noch fuer das aktuelle Fenster
den Menubar zuzulassen;
das heisst unter anderem, dass ALLE fenster-manipulationen
eine spezialle Function aufrufen muessen, die dafuer sogrt,
dass von einem alten Fenster die Menuleiste abgetrennt wird
(dafuer bietet sich menu_strip an)
zur zeit verwenden wir als default-menustrip jedesmal get_menustip(NULL);
dies ist zu beruecksichtigen
HISTORY
20 Dec 1992 b_null created
******************************************************************************/
void menuoff (MENUSTRIP * ms, struct Window * win)
{
ED * ed;
int def_too;
if (ms) {
def_too = (get_menustrip(NULL) == ms);
if (ms->offCount == 0) {
/* detach menues */
for (ed = (ED *)GetHead(&DBase); ed; ed = (ED *)GetSucc((struct Node *)ed)) {
// if (ed->Package == Package) /* <-PATCH_PACK */
if ((ed->menustrip == ms) || (def_too && (ed->menustrip == NULL))) /* <- PATCH_NEW */
{
ClearMenuStrip (ed->win);
Forbid ();
ed->win->Flags |= WFLG_RMBTRAP;
Permit ();
} /* if */
} /* for */
} /* if first menuoff */
++ms->offCount;
} /* if */
} /* menuoff */
/*****************************************************************************
NAME
menu_strip
PARAMETER
MENUSTRIP * ms
struct Window * Win
RESULT
-/-
RETURN
void
DESCRIPTION
that function binds a menustrip to a window
(or after menuoff, binds no menustrip to a window)
NOTES
! in naher Zunkunft wird diese Funktion wohl einen
! weiteren Parameter erhalten : status = OFF|ON
(iconmode ist schliesslich offiziell nicht sichtbar)
BUGS
EXAMPLES
SEE ALSO
INTERNALS
HISTORY
20 Dec 1992 b_null created
******************************************************************************/
void menu_strip (MENUSTRIP * ms, struct Window * Win)
{
if (!ms->offCount && ms->data && !Ep->iconmode) {
SetMenuStrip (Win, ms->data);
Forbid ();
Win->Flags &= ~WFLG_RMBTRAP;
Permit ();
} else {
Forbid ();
Win->Flags |= WFLG_RMBTRAP;
Permit ();
} /* if */
} /* menu_strip */
/*
** Die Folgenden functionen haben noch keine Header
** und sind teilweise noch nicht fertig
*/
void menusave (MENUSTRIP * ms, char * name)
{
FILE * fo = NULL;
if (fo = fopen (name, "w")) {
savemenus (ms, fo);
fclose (fo);
} else {
error ("%s:\nCan't open file %s for output", CommandName(), name);
} /* if */
} /* menusave */
void menuload (MENUSTRIP * ms, char * name)
{
FILE * fi = NULL;
int lineno = 0;
if (fi = fopen (name, "r")) {
menuoff (ms, NULL);
menuclear (ms);
loadmenus (ms, fi, &lineno);
menuon (ms, NULL);
fclose (fi);
} else {
error ("%s:\nCan't open file %s for input", CommandName(), name);
} /* if */
} /* menuload */
/*****************************************************************************
NAME
fixmenu
PARAMETER
MENUSTRIP * ms
struct Window * win
RESULT
-/-
RETURN
void
DESCRIPTION
recalculate the sizes & positions of a menustrip
NOTES
that function uses GadTools.library
BUGS
EXAMPLES
SEE ALSO
GadTools/LayoutMenu
INTERNALS
(ursprueglich liessen wir den kram komplett berechnen, (spagetti)
dann wurden separate functionen eingefuehrt, die die menuitems
bzw die subitems rekursiv abarbeiteten)
vorhin las ich jedoch, dass GadTools mit "normalen"
intuition-menues arbeitet - also kann LayoutMenu() auch
einen NON-GadTools menustrip verwenden!
wenn aber nun GadToolsnormals IntuitionMenues verwendet, dann
kann die verwendete VisualInfo nur als Informationsquelle
dienen, also kann sie temporaer verwaltet werden
(die Verwendung von GadTools spart > 1/2 kB oder 130 LoC !)
Aaron warum hast Du mir nict vorher dir RKM empfohlen ?!
HISTORY
03 Feb 1993 b_null rewritten for use of GadTools
******************************************************************************/
void fixmenu (MENUSTRIP * ms, struct Window * win)
{
APTR vi; /* VisualInfo for GadTools - probably to get Info 'bout screensize a.s.o. */
struct TagItem tags[1] = {TAG_END, 0}; /* empty tags list for GadTools - varargs stuff is not visible with -mRR */
vi = GetVisualInfoA (win->WScreen, tags);
LayoutMenusA (ms->data, vi, tags);
FreeVisualInfo (vi);
} /* fixmenu */
/******************************************************************************
***** ENDE menu_dme.c
******************************************************************************/